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MODULE setact ( 

IDENT = ‘'V04-000', 

ADDRESSING MODE (EXTERNAL GENERAL. 

; NONE XTERNAL=LONG.. RELATIVE) 
= 


BEGIN 


' 
ern eens a eaten SERRE a 
le 

He COPYRIGHT (¢) dg 1980, 1982, 1984 
te DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


Hl ee SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND rite 
ONLY IN ACCOR WIT 


® 

® 

® 

® 

® 

m 

* 

® 

i THERE Y ILABLE TO A * 
it OTHER PERSON. NO TITLE To AND OWNERSHIP OF THE SOFTWARE IS” HEREBY = 
ie TRANSFERRED. « 
® 

ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE  * 
® 

® 

e 

w 

® 

* 

® 


BJECT T 
t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
te CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eRe RRA AA AAA AAARAEAAAAAARAAAE EAA AAE ARETE AAA AAAAAAAEAAAAAARERRAAEEREREE 
' 


'e4¢ 


FACILITY: Set 

ABSTRACT: 

i This module contains the action routines for SET FILE, SET DIRECTORY, 
and SET VOLUME. 

ENVIRONMENT: 

Vax native, privileged user mode 

ine 

i 

AUTHOR: Gerry Smith CREATION DATE: 04-Aug-1981 
MODIFIED BY: 

i v03-005 ae Ger 15-Feb-1982 
i Onl yeget t the file none “oy tie FILE/ENTER= filename. 
i The SPARSE is aoyed to SETFILE to that stickiness 
can be applied with the input fil 

v03-004 GAS0038 Gerry Smith 2-Feb-1982 


Add /GLOBAL_BUFFERS Fs by routine for SET FILE. 


1eseo-3Hs 1:86:95 YAIGDH S4LRScPE ad 0B oe 


~ 


4 


Pid 
ssessseneess $F 
ab nw ss st le 


HESeeca8s Q:0:0) YAGULeGMesede att 232 om 


v03=-003 GAS0030 Gerry Smith 1=-Jan-1982 
Add /RETENTION ection nab « for SET VOLUME. 


v03~002 ore Corey, 3 Smith 18-Dec-1981 
Use shared message file, and lower fatal messages to 
simple error messages. 


v03-001 GAS0021 Gerry Smith 30-Nov-1981 
Allow zero values for group and member of UIC 


vO4-600 VESgoc198¢ $D:B8:0)  YAGGUL S4deHsBEAN4 ashe es 7 


71 70 1L 1BRARY "SYSSLIBRARY:LIB': 
i 71 1 t 1eRany *SYSSL LIBRARY :CLImAC 
g3 f \ LIBRARY ‘SYSSLIBRARY:TPAMAC': 
75 74 1 STRUCTURE 

g 03 BBLOCK CO, P, S, E; NJ = 
78 4 1 (BBLOCK + 0)<P,S,E>; 


a 


SeEes gh 


CD: 
uw 
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“1 
16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 
122808- 1388 9:98:95 ChTUTL SRESSETALT O30¢4 
1 FORWARD ROUTINE 
1 ! Action routines for: 
1 acc act, ! /ACCESSED (VOLUME) 
1 back_act, ! /BACKUP (FILE) 
1 noback_act, ! /NOBACKUP (FILE) 
1 data_act, ! /DATA_CHECK (VOLUME ,F ILE) 
1 enter_act, ' /ENTER (FILE) 
1 erase_act, ! /ERASE_ON_DELETE (FILE) 
1 noerase_act, ® /NOERASE_ON_DELETE (FILE) 
1 exp_act, ! /EXPIRATION”- DATE (FILE) 
1 noexp_act, ; /NOEXPIRATION_DATE (FILE) 
1 ext_act, } ALN ots (FILE, VOLUME) 
1 fprot_act, i /FILE PROTECTION (VOLUME) 
1 uf_act, ' /GLOBAL BUFFERS (FILE) 
1 ournal_act, ! / JOURNAL (FILE) 
1 abel_act, ' /LABEL (VOLUME ) 
1 owner _act, ! Ait VIC (ALL) 
1 retent_act, ! /RETENTION (VOLUME ) 
1 test_char, ! action routine used by retent_act 
1 user_act, ! /USER_NAM (VOLUMES 
98 1 vprot_act, ! /PROTECTION (VOLUME ) 
1 vrsn_act, ! /VERSION_LIMIT (DIRECTORY,FILE) 
: : ’ window _act; ! /WINDOWS (VOLUME) 
1 ¢ 1 EXTERNAL ROUTINE 
103 1 calculate_max, 
He 1 sy5 fao, 
105 1 LibStparse, 
18 1 LibScvt_time, 
107 1 LibScvt_dtime, 
108 1 LibScvt_dtb; 
110 1 3 
Mi : : External data references 
18 1 EXTERNAL 
114 «1 rename_buf : vecrontqense _naures BYTE), ! Name buffer for /ENTER 
115 1 file_name : VECTOR(2) ! File name descriptor 
116 file=rlf : BBLOCKCnam$c_bin), i Related name block 
118 #1 set$l_status ! Status return for SET dispatcher 
119 set$a_cliwork; i CLI work area in SET dispatcher 
121 1! 
; § ' : Literal data definitions 
1246 1 LITERAL 
125 1 true = 1 
126 1 false = 6; 
1 1 
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nl 

i 

‘ 

GLOBAL LITERAL 

SEQULST 

(QUAL_,.1.,1, 
(access,), 
goeckup.? 
(nobackup,), 
(conf rm,5, 
(data,) 
(enter,), 
(eof,), 
(erase,), 
(noerase,), 


(retent,), 
(rprot,5, 
(trunc,), 
(username,), 
(vprot,), 
(vrsn,), 
(windows,)); 


GLOBAL LITERAL 
SEQULST 


(read). 
(noread,), 
(write,5, 


(nowrite,)); 


GLOBAL LITERAL 
SEQULST 
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Define the JOURNAL option bits 


a 


ACCESSED 
BA 


N 
END_OF FILE 

ERASE _ON_ DELETE 
NOERASE_ON_DELETE 
EXPIRATION_DATE 


EXTENS 

FILE PROTECTION 

! GLOBAL _BUFFERS 
JOURNAL 
LABEL 
LOG 

NODIRECTORY 
OWNER=PARENT 
REMOV 

RETENTION 

RECORD PROTECTION 
TRUNCATE 

USERNAME 


PROTECTION 
VERSION_LIMIT 
WINDOWS 


Define the DATA_CHECK option bits 
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: Define the qualifier flag bits used by all SET FILE/DIRECTORY/VOLUME 


AX-11 B 
CLIUTL. 
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' Declare external references 


1 

os 
setfile$flags : BITVECTORE 
setfile$dflags : BITVECTOR 
setfile$jflags : BITVECTOR 


acc_value, 
exp_value : BBLOCK(8), 


e, 
abeT_value : VECTOR(2), 
uic_value, 
group, 
member, 
user_value : VECTOR(2 


retmin_value : VECTOR $1. 


retmax_value : VECTOR 
vprot_value, 
vrsn_value, 
window_value; 


! Declare the error messages 
EXTERNAL LITERAL 


set$_facility, 
set$_operreq, 
set$_writeerr; 


9Bc 92:08:59 EetUt sReSsetatt: 


4 
T 


Owner uic 

Group number 

Member number 

Username string descriptor 
Minimum retention time quadword 
Maximum retention time quadword 
Volume protection value 

Version Limit 

Window Length 


! SET facility code 
! OPER privilege required 
! Error accessing file 


—— Le eee eee 4 


vO4~000 


; 
9 
; 
5 
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{ Define the TPARSE block 


pa$k_length0] 
spas _counto, 
tpa$m_blanks OR 
tpa$m_abbrev); 


tparse_block : BBLOC ! TPARSE block 
INITI 


Sb ab a We Wd 
Cr 
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TPARSE table for /DATA_CHECK options 
SINIT_STATE (dc_state,dc_keys); 
SSTATE (optstart, 


tpa$_eos stpas_ exit,,data write, setfilesdflags),: 


(tpas_ Lambda, gétoption)); 


SSTATE FREAD ee 
POP, abe read, epptde cr pe be ped! 
WRITE geol.da ta_write,setf Mba! o98) 
(: NOREAD peeled data_noread,setfile$df ags) 
("NOWRITE,,,1*datd_nowrite,setfile$dflags)); 
SSTATE (, 
(tpa $_eos,tpa$_exit), 
(",",getoptiony); 


ow 


i 
R 


defauit is WRITE 
fall thru to options 


either end of 
or get rid of 


Sse tact 8301 
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HecSEoct9Be (4:06:01 Yat OLtagzsz, 4.0374 Page as 


| TPARSE table for /OWNER_UIC option 
SINIT_STATE (owner_state,owner_keys); | 
SSTATE soynecetert 


(PARENT ', tpaS_ exit,.1*qual ~aiacteaandt wth ! Check for PARENT 
2 k for square bracket 
("<")5S; i Or” a squiggle | 
SSTATE (, | 
(tpa$_octal,,.,group)); ! Get group number 
SSTATE (, | 
ied DF ! Get rid of the comma 
SSTATE (, 
(t tpaS_octal,,,,member)); ! Get member number 
SSTATE (, 
("J") ! Get end bracket 
(*>")5; 
SSTATE (, 
(t tpa$_eos, tpa$_exit)); ! Clean-up 


ea eee 
. :06: . 

SSdo Estee F089) YSU CAHSEE 23 row ty 
| 


$ 7% #1! 

3 i ! TPARSE table for /JOURNAL option 

3 5 i : SINIT STATE (journal_state, journal_keys); 

; P 0279 1 SSTATE (getjopts 

: $88 P0380 1 CMT opti cientaisettilesitiogs), | Al ournal ing 

3; 289 P a: (rapes tta rni-a ssetfiles ttege?. ! AT journaling 

; 290 P § 1 ("BI* 1" role “> setfiles$ifl $} ° ! BI panes 

3; 291 » 1 (‘NOAI',,,1“*jrnil_noai,setfile$iflags), | No ournaling 
3 3 Pp 1 (*NOAT',,,1“jrnl_noat,setfile$jflags), ! No At ournaling 
: 29 Pp ; 7 (*NOBI*. 2.1% rnl“nobi,setfile$jflags), |! No BI journaling 
3: 294 P 1 CSNORUA rnl-noru,setfile$jflags), ! N No RU journaling 
3; 295 P 0287 1 Bang rn =norum, se rihesst ags).! No RUM journaling 
: 396 P 0088 1 CR RU ef jen ru,setfiles flags), i RU journaling 

: 1d 8 $8 | ("RUM’,,,1 frat. rumssetfilesit ags)); ! RUM journaling 

: 299 P 9 91 1 SSTATE (, 

; 300 P 4 1 (tpas_ eos, tpa$_exit), ! Either the end 

; 301 02935 1 (",' getjopts)); ! Or more to come 


H 2 
¥Ou-500 1e$ep-198e fe2s08:59 — EetaU sae Sse tatt 030; 


; 3 1! 

: 2 ‘ } : TPARSE table for protection 

; . 

: oF $8 1 SINIT_STATE (pro_state, pro_keys); 

3 309 p 1 SSTATE (NEXTPRO, 

; 310 P 1 ("'SYSTEM’, SYPR,, %X‘OOOF *, fprot_value), 
$ 11 Pp § 1 (‘OWNER', OWPR,, 2X'OOF *, fprot_value), 
3 ig P 1 (*GROUP’, GRPR,, %X'OF *, fprot_value), 
; \? p : : p Wont". WOPR,, %X*F0000000', fprot_value) 
> 315 1 d 

: 319 PO80R YE (Rye 

: 8 P 0309 1 ("2"), 

$ 1 P0310 1 (TPAS LAMBDA, ENDPRO) 

: 35 2 4 "4 

; : P ig 1 S$STATE (SYPRO 

: P0314 1 (*r', SYPRO,, %X'0001'. fprot_value), 
3 4 P0315 1 (*W°', SYPRO,, %xX'0002", fprot_value), 
3 5 P0316 1 ("E*, SYPRO,, %X°'0004", fprot_value), 
3 $ P0317 1 ("P*, SYPRO,, 2X'0004°, fprot_value), 
3 Fp \8 1 ("D*, SYPRO,, 2X’ Sie fprot_value), 
3 8 P0319 1 (*L', SYPRO,, %X°0008', fprot_value), 
: 329 P 0320 1 (TPA$_LAMBDA, ENDPRO) 

3 , 1 : ); 

; P : 1 SSTATE (OWPR, 

; P 4 1 (*;") 

: 34 P0325 1 ("2"); 

; 5 P $ \ + AS_LAMBDA, ENDPRO) 

: 1 , 

3 i P g 1 SSTATE (OWPRO 

; 339 & 0 1 (*R', ee %X°0010', fprot_value), 
3 0 P 1 (*w', OWPRO,, %X°0020", fprot_value), 
3 1 P § 1 (°E*, OWPRO,, 2X'0040', fprot_value), 
3 § P 1 (*P*, OWPRO,, %X°0040", fprot_value), 
3 P 1 ("D*, OWPRO,, a $ *, fprot_value), 
3 4 P 3 (*L*, OWPRO,, ZX' *, fprot_value), 
; : P CTPAg LAMBDA; ENDPRO) 

; 1 , 

; : P 1 SSTATE (GRPR, 

: P 1 ple 

; 350 p ? 1 *s*)., 

‘ 3 P § ' ; T AS_LAMBDA, ENDPRO) 

: 41 ‘ 

3 6354 f 5 1 SSTATE (GRPRO 

s 355 P § 4 (fare éRPR ee $X°0100', fprot_value), 
3 $ Pp 1 (*W*, GRPRO,, ZX‘ *, fprot_value), 
: P 3 4 ("E*, GRPRO,, 2X‘ *, fprot_value), 
3 3 P 1 (*P*, GRPRO,, 2X'0400', fprot_value), 
3 33 P 0350 1 ("D*, GRPRO,, 2X‘0800', fprot_value), 


vv 
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» %X°0800', Beg cei 


; ENDPRO) 


ENDPRO) 


%x' 4 
zx' y 
» fprot_ value), 


fprot_value), 
fprot_value), 


fprot_value), 
fprot_ value), 
fprot_value), 
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Tparse table for /RETENTION option 
SINIT_STATE (ret state, ret_keys) 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


(retstart, 
((get_ doited..o.retatn, value)); 


(f+), 
(tpa$_eos,tpa$_exit)); 


((get_delta),..,.retmax_value)); 


(, 
(tpa$_eos,tpa$_exit)); 


{get delta, 
(tpa$_any, -get delta. vest. _char), 
(tpa$_ lambda, tpa$_exi 


Hbestoct9pe 01:96:01 yancit ob teg= 52 y4. 2749 


Get the first delta string 


If ac a get next string 
Else ex 

Get the next delta string 
And exit 


Get next character in delta string 
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122800- 1382 93:88:95 CLIUTL. SRCISETACT .B32; 
GLOBAL ROUTINE acc act (option_block, callback) = 


i This is the action routine for the (eeverrce qualifier. It first checks to 
! make sure that the process has OPER privilege. if so, then the ACCESS value 
; is obtained and bounds checking is performed on it. 


1 
1 
1 
1 
4 . 
BEGIN 
OWN privs : BBLOCK(8); ! Phace to store the process privileges 
LOCAL 
status, ; Status return 
desc : BBLOCKCdsc$c_s_bin]; ! General descriptor 
4 
4 


MAP option_block : REF BBLOCK; ! Define the CLI block 
' 


i Call SSETPRV to get the current privileges of the process. If the process 
: does not have OPER, then signal an error and stop. 
if NOT (status = SSETPRV(ENBFLG = 1, ' Enable 

PRVADR = 0, ! No new privileges 
ane ! Get current privileges 


PR privs)) 
THEN SIGNAL_STOP(.status); 


If NOT .privsCprv$v_oper] THEN SIGNAL_STOP(set$_operregq); 
1 
: The process has the correct privilege, so ¢o ahead and get the value 


acc_value = 3; ! Set up the default 
t 
If a value was specified, use it; otherwise, use the default. 


iF .option block(cli$w_qdvalsiz] EQL 0 
THEN RETURN true; 


] 
; Convert the value 


iF NOT (status = LIBSCVT_DTB(.option_block cl i$u_advalsiz), 
sont ton beck cli$a_qdvaladrj, 

valu 
THEN SIGNAL_STOP(setS_facility*18 + shr$_syntax + sts$k_error, ! Signal a syntax error 


option_blocklcli$q_qdvaldesc), 
»Status) 


NOT (.acc_value GEQ 0 ! Check that value is in range 
~acc_value LEQ 255) 


) tion. blo kC¢ y dvaldesc], 
sets. fac lity - “Shrs. 


: 
a3? END: 
$28 ge true; 


- TITLE 
- IDENT 


»PSECT 
00000 ; TPASKEYSTO 


44 41 45 52 00000 O Pecevit 
O.11: | .ASCII 


boone .BYT 
0005 ; TPASKEYSTO 


0.15:  .BLK 
45 54 49 52 57 00005 ; TPASKEYST 
0.17: ASCII 


QOO0A -BY 
00008 ; TPASKEYSTO 


v. 8 
44 41 45 52 4F 4E 00008 : TPASKEYST 
U.23: ASCII 


00011 -BY 
00012 ; TPASKEYSTO 


U.27:  .BLK 
45 54 49 52 57 4F 4E 00012 ; TRASKEYST 
g Wer: ASCII 


90019 -BYT 
FF OO1A gTpASKeVF ILL 
00018 sipAbxeVETO 
54 4E 45 52 41 50 00018  TPASKEVET 
41: ASCII 
FF $9 } S TPASKEYETLL 
U.48: .BYT 
00023 tpASKevsto 
49 41 00023 ;TPASKEYST 
0.61: ASCII 
$0038 s TPASKEYST0 


é. 
54 41 00026 ;X = iBAGKEVET 
7: “Reale 


g0038 aTPASKENSTO - 
49 42 00029 ; 4, 'pgeKevsr 


«Cee 


c+: Cee 


ASCII 


-$ep-1984 01:06: AX-11 Bliss-32 V4.0 
1fs¢ 300-1382 9:98:95 CLIUTL.SRC SETACT O3e, 
THEN seein ite facility*16 + shr$_syntax + sts$k_error, 


valerr + sts$k error); 


SETACT 
\v04-000\ 
-LIBSKEY1$,NOWRT, SHR, PIC,1 


0 
>" 


0 
reres 


0 
tale 


0 
wear 
-1 

0 
eae 


-1 


! If not, exit with an error. 


——--—-——-—- ---- — 


2 sé 
1ea$ep=1984 12:08:59 EetTUte sae Ssetatt ose: Pat 135 


FF B088e sTPASKEVETO re , 


0 
49 41 4F 4E 0002C ; TRASKEYST 


04-000 


6.79: ASCII \NOAI\ ; 
FF 1 3 
$608 steascerétd ‘ 
54 41 4F 4E 00031 TPAsKevs 


85: ASCII \NOAT\ ; 
00085 | aTRASKEYETO _ 


.8 
49 42 4F 4E 00036 vTPASKEYST 
0.91: .ASCII weer 8 


$0038 -teasuevitd™ 


0.95:  .BLK 0 
55 52 4F 4E 00038 ; TPASKEYST 
U.97: ASCII \NORU\ 3 
FF Q003F -BY 1 3 
00040 ; TPASKEYSTO 0 


0. .B 
4D 55 52 4F 4E 00040 ata KevST 
U.103: ASCII \gonum : 


Y 
tires ; TPASKEYSTO 


U.107: .BLKB 0 
55 52 00046 ; TPASKEYST 
 U+109: . acti! \RU\ 3 


FF 00088 BYT -1 3 
0049 ; aTPAagnevETO) 0 
4D 55 52 00049 ; TPASKEYST 
a) : .ASCII \RUM\ : 
FF poet -BYT al : 
FF 0045 ; TPASKEYE ILL 
0.119: YTE -=1 3 


Q004E ; TPA Kevét0 
2125: ,BLKB 0 
4D 45 54 53 59 53 OO04E ;TPA KEYST 


* Cee 


G.127: ASCII \SYSTEM\ ; 
FF 0054 “BYTE =1 ; 
0055 ;1P KEYSTO 
- 6.135: ASCII \OWNER\ | ; 
0005 grant : ; 
50 55 4F 52 47 00058 ; sipagierdt isc \gR0uP\ : 
iy oid aTPageevSi0 » : . 


44 4C 52 4F 57 0006 1s TPASKEYS 


0.1 
52 45 GE 57 4F 00055 :iPA kevat . 
ASCII \WORLD\ : 


il! 


14986 93:88 


Ff 86888 sTeaseeviiUt 
15 
.PSECT 
00000 pc STATES: a 
00000 OPTSTART: 
71F7 00000 j TBASTYPE 
00000000* 00002 ATBASADDR 
00000003 00006 tPASMASK 
FFFF OOO0A TEASTARGET 
15F6 0000C inessT"P vor 
0000* O000E ; TPASTARGET 
U.8: WOR 
00010 5 GETOPTION 
U./: BLK 
6100 00010 ; TPASTYPE 
U.12: eWORD 
00000000* 00012 ;TPASADDR 
0.13: LONG 
00000002 00016 ZTPASMASK 
6101 OO01A ; TPASTYPE 
0.18:  .WORD 
00000000* 0001C ;TPASADDR 
U.19: LONG 
00000008 00020 it TRASMASK 
6102 00024 ; TPASTYPE 
U.24: WORD 
00000000* 00026 ; TPASADDR 
0.25: . LONG 
00000004 0002A AUBASMASK 
6503 0002E ZiPASTYPE 
00000000* 00030 ; TPASADDR 
U.31: LONG 
00000010 00034 ZIBASMASK 
11F7 00038 ; TPASTYPE 
0.34:  . WORD 
FFFF OOO3A ipastancer 
142C 0003C¢ tBAstype 
0000* 0003€ sTBASTARGET 


WORD 
00040 OWNER_STATE:: 


y 0-74 


AX=11 BLi 
he Sse¢att: 835, 


chiuie SRCISETAC 


=] 


-LIBSSTATES,NOWRT, SHR, PIC,1 


0 

0 

29175 
<<SETFILESDFLAGS-U.3>-4> 
3 

<1 

5622 

<<U.7*U.8>-2> 

0 

24832 
<<SETFILESDFLAGS-U.13>-4> 
2 

24833 
<<SETFILESDFLAGS-U.19>-4> 
8 

24834 

<<SETF ILESDFLAGS-U.25>=4> 
4 

25859 
<<SETFILESDFLAGS-U.31>-4> 
16 

4599 

-1 

5164 

<<U.7°U.37>=2> 


ie tah 


-BLKB 
00040 OWNERSTART? 


7100 00040 ; TPASTYPE 
U.42: _ ,WORD 
00000000" 00042 ;TP SADOR 
0.43: . LONG 
00080000 


00046 ; TPASMASK 
FFFF OQ004A ; TPASTARGET 


U.44;_ LONG 
Os 45: , WORD 
0058 
043C 
45F4 
00000000* 
042C 
454 
00000000* 
0050 
043€ 
15F7 
FFFF 


6100 
00000000* 
00000002 

6101 
00000000* 
00000008 

6102 
00000000* 
00000020 
6103 


0005A 
0005E 
0°60 
00062 


00064 = iBASTARGE! 


£66 -BLK 
0008 JOURNAL. STATE:: 


i 
y 
o 
i 


5.4 
U5 
.52: 


SADDR 
:_ LONG 


-TP 
TP 
651: 
TP 
P 
53: 
P 
5 
5 


P 
TP 
56: 


00068 GETJOPTS: 
00068 ; TPASTYPE 


LKB 
62: WORD 


v. 
0006A ; TPASADDR 


63: . LONG 


0. 
O006E ; TPASMASK 


4; 
00072 Ooh ype 


. LONG 
U.68: 


00074 + TPASADDR 


0.69: LONG 


00078 TTPASMASK 


70: LONG 


U. 
0007¢ ; TPASTYPE 


U.74: ° 
OOO7E ; TPASADDR 


WORD 
75: LONG 


00082 OEPASMASK 


00086 


76: —.LONG 


3; TPASTYPE 


AX-11 Bliss-32 V 4.05 26¢ 
CLIUTL.SRC SETACT B32; 


0 

28928 
<<SETFILESFLAGS-U.43>-4> 
524288 

-1 

91 

1084 

17908 
<<GROUP=U.50>-4> 
1068 

17908 
<<MEMBER=U.53>=-4> 
93 


24832 
<<SETFILESJFLAGS-U.63>-4> 
2 

24833 
<<SETFILESJFLAGS-U.69>-4> 
8 

24834 
<<SETFILESJFLAGS-U.75>=4> 
32 


Page 19 
9042) 


64-000 


00000000* 
00000004 
6104 
00000000* 
00000010 
6105 
00000000* 
00000040 
6106 
00000000* 
00000100 
6107 
00000000* 
00000400 
6108 
00000000* 
00000080 
6509 
00000000* 
00000200 
11F7 
FFFF 
142C 
0000+ 


7100 
00000000+ 
000F 0000 


r$-sen-1984 4:06:0)  yaxett al iage32 v4.07 


U.80: WORD 

00088 UF PASADDR 
0.81: LONG 
0008C ; spats one 
00090 sipAstvPé wone 
00092 (.6re0 LONG 
00096 é as 

QOO9A ; TPASTYPE 
U.92: WORD 
0009C¢ Ny ree 

OOOAO ; TPASMASK 
U.94: - LONG 

OO0OA4 ; TPASTYPE 
U.98: WORD 

QO0A6 ; TPASADDR 
U.99: LONG 

OOOAA ; TPASMASK 
U.100: .LONG 

QOOAE ; TPASTYPE 
U.104: .WORD 

000B0 ; TPASADDR 
U.105: .LONG 

000B4 ; TPASMASK 
U.106: .LONG 

00088 ; TPASTYPE 
U.110: .WORD 

QOOOBA ; TPASADDR 
U.111: . LONG 

OOOBE ats emnge 
U.112: .LONG 

000C2 ; TPASTYPE 
U.116: WORD 
000C4 Nt) oe 

000C8 ; TPASMASK 
U.118: .LONG 

000cc pieggtre 
U.120:  .WORD 

OOOCE ; TPASTARGET 
U.121: .WORD 
00000 ALY ai 
00002 ;TPA TARGET 

U.1235: WORD 
00004 PRO STATES: - 
it NEXTPRO: .BLKB 

04 ALG + TYPE 
00006 ALY: ae 

OOODA ; TPASMASK 


24835 
<<SETFILESJFLAGS-U.81>-4> 
4 

24836 
<<SETFILESJFLAGS-U.87>-4> 
16 

24837 
<<SETFILESJFLAGS“U.93>-4> 
64 

24838 
<<SETFILESJFLAGS-U.99>-4> 
256 

24839 
<<SETFILESJFLAGS-U.105>=4> 
1024 

24840 

<<SETF ILESJFLAGS-U.111>=4> 
128 

25865 
<<SETFILESJFLAGS-U.117>=4> 
512 

4599 

-1 

5164 

<<GETJOPTS-U.123>=2> 


p 


28928 
<<FPROT_VALUE-U. 129>=4> 


Io 


0000+ 
7101 
00000000* 
00F 00000 
0000+ 
7102 
00000000* 
0F 000000 
0000+ 
7503 
00000000* 
F0000000 
0000+ 


003A 
0030 
15F6 
0000+ 


7052 
00000000* 
00000001 

0000+ 

7057 
00000000* 
00000002 

0000* 

7045 
00000000* 


18-Sep-1984 4:06:0)  YaNett BL iag32 v4.07 


ONG 
OOODE ; i oe 
0000 siPh iveé” 
000E2 aif Ashovi 
OO0E6 ; TPASMASK 
U.138: .LON 
OOOEA ; TPASTARGET 
Ue 140: .WOR 
OOOEC ; TPASTYPE 
-144: WORD 
OOOEE ; Teapioon 
145: LONG 
OOOF2 ; TPASMASK 
U. 146: .LONG 
OOOF6 ; Mt Heart! 
U.148:  .WORD 
OOOFS ; TPASTYPE 
U.152: . WORD 
OQOOFA ; TPASADDR 
U.153: .LONG 
OOOFE ; TPASMASK 
U.154: .LONG 
00102 ; TPASTARGET 
Ue 156: .WORD 
00104 ;SYPR 
Us 131: .BLKB 
00104 ; M1 Hie 
U.158:  .WORD 
00106 ; TPASTYPE 
U.159:  .WORD 
00108 ; TPASTYPE 
U. 160: .WORD 
QO10A ;TPA TARGET 
U.162: .WORD 
60 oc SYPRO: a 
10C ; TPA TYP 
U.163: E oRD 
QO10E ; TPASADDR 
U.164: .LONG 
00112 ; TPASMASK 
U.165: .LONG 
00116 ; TPASTARGET 
U.166:  .WORD 
00118 ts bas 
U.167:  .WORD 
QO11A ; TPASADDR 
U; 168: .LONG 
OO11E ; TPASMASK 
v. 169:  .LONG 
00122 ; TPASTARGET 
U.170: .WORD 
00124 ; TPASTYPE 
U.171:  . WORD 
00126 ; TPASADDR 


983040 
<<U.131°U.132>=2> 

28929 
<<FPROT_VALUE“U.137>=4> 
15728640 
<<U.139=U.140>-2> 

28930 
<<FPROT_VALUE=U.145>=4> 
251658240 
<<U.147-U.148>=2> 

29955 

<<FPROT_VALUE=U. 153>-4> 
268435456 
<<U.155-U.156>=2> 

0 

58 

61 

5622 

JM. VETG, 10e>-8> 


28754 

<<FPROT_VALUE-U. 164>-4> 
1 

<<SYPRO-U. 166>-2> 

28759 

<<FPROT_VALUE-U. 168>=4> 
2 

<<SYPRO-U.170>-2> 

28741 


ee ee Se ee ee Be ee ee oe ee @e ee ee ee Se Se ee ee 
EEE 


a aaa eae amma aaa aaa 


iEseo-1964 0:06:04 


U.17 H «LONG 
00000004 0012A ; ist MASK one 
0000* 0012E ; TPASTARGET 
174: WORD 
7050 00130 ; TPASTYPE 
175:  . WORD 
00000000* 00132 ; TPASADDR 
moe. LONG 
00000004 00136 ; Teggnase 
177: . LONG 
0000* 0013A ; TPASTARGET 
-178: .WORD 
7044 0013C ; TPASTYPE 
179: WORD 
00000000* 0013E ; TPASADDR 
-180: .LONG 


00000008 00142 ; TPASMASK 
0000* 00146 ; TPASTARGET 
704C 00148 ;TPA 

. : WORD 

00000000* 0014A ; TPASADDR 


-184: .LONG 
00000008 OO14E ; TPASMASK 


-185: .LONG 
0000* 00152 ; TPASTARGET 
U. 186:  .WORD 
15F6 00154 ; 1 Hie 
Us 187:  .WORD 
0000* 00156 ; Weeptanee’ 
U.188: .WORD 
— i189 BLKS 
003A 00158 ; TPASTYPE 
U. 189: .WORD 
003D 0015A ; TPASTYPE 
U. 190:  .WORD 
15F6 OO15SC ; TPASTYPE 
U. 191: WORD 
0000* 0015E ;TPA TARGET 
Gis: tg 
7052 S0160 STPASTYP 
U.193: E VoRD 
00000000* 00162 ; TPASADDR 
U.194: .LONG 
00000010 00166 f hORRASK 
U.195: .LONG 
0000* 0016A ; TPASTARGET 
U.196: WORD 
7057 O016C ; TPASTYPE 
U. 197: . WORD 
00000000* 0016E ; TPASADDR 
U; 198: . LONG 
00000020 00172 ; TPASMASK 


<<F PROT _VALUE“U.172>=4> 
4 

<<SYPRO-U.174>=2> 

28752 

<<FPROT_VALUE=U. 176>=4> 
4 

<<SYPRO-U.178>=2> 

28740 

<<FPROT_VALUE=U. 180>=4> 
8 

<<SYPRO-U.182>-2> 

28748 

<<FPROT_VALUE=U. 184>-4> 
8 

<<SYPRO-U. 186>-2> 

5622 

<<U.161-U.188>-2> 

0 

58 

61 

5622 

Se. 161-0. 192>~e> 


28754 

<<F PROT_VALUE-U.194>=4> 
16 

<<OWPRO-U.196>-2> 

28759 
<<FPROT_VALUE-U.198>=4> 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRC SETACT B32; 


0000+ 
7045 
00000000+ 
00000040 
0000+ 
7050 
00000000 
00000040 
0000+ 
7044 
00000000* 
00000080 
0000+ 
704C 
00000000* 
00000080 
0000* 
15F6 
0000+ 


003A 
0030 
15F6 
0000+ 


7052 
00000000* 
00000100 

0000+ 


F 3 
1eeSep-198e 12:08:59 EeLaUtL sae Ssetatt 030; 


199: 
00176 siPA iandtt” 
00178 vba TYPE 


RD 
U.201: RD 
OO17A “iA ADD Lone 
0017€ riba SK on 
00182 ; TPASTARGET 
-204: WORD 
00184 ;TPA 
-205: WORD 
00186 AS: : aoee 
0018A sTBARAAS 
0018E ; TPASTARGET 
U.208: .WORD 
00190 ; TPASTYPE 
.209: .WORD 
00192 ; TPASADDR 
210: .LONG 
00196 ; TPASMASK 
U.211: .LONG 
0019A ; TPASTARGET 
U.212: .WORD 
0019C ; TPASTYPE 
213: WORD 
0019E ; TPASADDR 
U.214: .LONG 
001A2 j"oegnase 
215: .LONG 
Q01A6 ; TPASTARGET 
-216: .WORD 
001A8 a ead 
U.217: WORD 
OO1AA Ly Hamer?! 
U.218: .WOR 
QO1AC ;GRPR 
-147: .BLKB 
001AC As es 
-219: WORD 
O001AE Arpaatvre 
U.220: .WORD 
00180 ; TPASTYPE 
U.221: WORD 
00182 ; TPASTARGET 
U.222: .WORD 
opis GRPRO: .BLKB 
1B4 ; TPASTYPE 
eces: WORD 
00186 ; TPASADDR 
224: .LONG 
OO1BA ; TPASMASK 
U.22 - LONG 
OO1BE ; TPASTARGET 


32 

<<OWPRO-U.200>-2> 

28741 
<<FPROT_VALUE=U.202>-4> 
64 

<<OWPRO=U. 204>=2> 

28752 
<<FPROT_VALUE=U.206>-4> 
64 

<<OWPRO-U. 208>-2> 

28740 

<<F PROT_VALUE=U.210>-4> 
128 

<<OWPRO-U.212>-2> 

28748 

<<F PROT_VALUE=U.214>=4> 
128 

<<OWPRO-U.216>-2> 

5622 

<<U.161-U.218>-2> 

0 

58 

61 

5622 

SOU. 161+. 222>~e2 


28754 
<<FPROT_VALUE-U.224>-4> 
256 


7057 
00000000* 
00000200 

0000+ 

7045 
00000000* 
00000400 

0000+ 

7050 
00000000* 
00000400 

0000+ 

7044 
00000000* 
00000800 

0000+ 

704C 
00000000* 
00000800 

0000+ 

15F6 

0000* 


003A 
0030 
15F6 
0000+ 


7052 


WORD 
001C0 ; Vege itive 
001¢2 ribhga ADDR 
001¢6 ; bee ASnAsi- 

b. 29: LONG 
QO1CA ;T ; TARGET 
.230: WORD 
OO1CC ; ‘58 TYPE 
231: .WORD 
OOICE ; Ws ADOR 
232: LONG 
001D2 ; TPASMASK 
235: LONG 
00106 ; MS teat 
U.2 4: ,WORD 
00108 ; A ogStvre 
.2535: WORD 
001DA ; TPASADDR 
U.236: .LONG 
OO1DE ; TPA MASK 
§.237: LONG 
O01E2 ; 188 coon 
OO1ES ; TPASTYPE 
-239: WORD 
OO1E6 ; TPASADDR 
U.240: LONG 


L 

OO1EE ; TPASTARGET 

U.242:  .WORD 
O001FO ; TPASTYPE 

U. 243: .WORD 
OO1F2 ; TPASADDR 

U.244: .LONG 
001F6 fT ORERASK 

U.245: . LONG 
OO1FA ; TPASTARGET 

ue 246: .WORD 
OO1FC ; TOAST VRE 

U.247: WORD 
OO1FE A SABTARGET 

fe : WORD 
00200 ;WOPR 

ue 155: .BLKB 
00200 ; MS Ha 

U. 249: WORD 
00202 ; TPASTYPE 

U.250:  .WORD 
00204 ; TPASTYPE 

U.251:  .WORD 
00206 ; TPA TARGET 

UOmaS: WORD 
80508 S TPA 


sScseo-t9gs 01060) yaRctt BL in4=52 ¥4.027 


<<GRPRO-U. 226>-2> 

28759 
<<FPROT_VALUE-U.228>=4> 
512 

<<GRPRO-U.230>-2> 

28741 

<<F PROT _VALUE=U.232>=4> 
1024 

<<GRPRO=U.234>=2> 

28752 
<<FPROT_VALUE“U.236>-4> 
1024 

<<GRPRO-U.238>-2> 

28740 
<<FPROT_VALUE-U.240>-4> 
2048 

<<GRPRO-U.242>-2> 

28748 
<<FPROT_VALUE-U.244>=4> 
2048 

<<GRPRO=U. 246>=2> 

5622 

<<U.161-U.248>-2> 

0 

58 

61 

5622 

SU. 161-U.252>=e> 


le 


$l! i 
00000000* 0020A 
00001000 0020€ 

0000* 00212 ; 
7057 00214 ; 
00000000 00216 ; 
00002000 O021A ; 
0000+ O021E ; 
7045 00220 
00000000* 00222 ; 
00004000 00226 ; 
0000* 0022A ; 
7050 0022C ; 
00000000* 0022E ; 
00004000 00232 ; 
0000* 00236 
7044 00238 i. 
00000000* 0023A ; i: 
00008000 0023E ; i; 
0000* 00242 ;T 


See See See Cee Cee Cee Cee Cee Cee Cee 
—e do 


Cee 


00008000 0024A ;T 

0000* 0024E ; i; 

15F6 00250 i 

0000* 00252 ; i 

00254 ; 

102C 00254 i! 
0000* 00256 7 


Us 
00000000* 00246 i: 
Us 


i. 


«Cee 


SepctRe 01:60) yancHy OL fa4=52 4.027 


FifAB AOD 


0.25 
siPA MASK 


Og tancet a 


Ug TYPE 
: WORD 


—<e —§e¢ <0 —ée 
MVM VM VN DY UN UN UN UN UN UN 
Veaoen 


—e =<§e <de 
APSERPSPRSPOKPOKPSORPUrywuryweui 
~— = 

5 
a 
i=) 


yo 
o 
e 
a: 
2 
a 


He TARGET 
Ue SASiVPE. 
269: .WORD 
ASADDR 

: glans 


. 
siveé 
8 


MASK 
LONG 
TARGET 
¥ 


: ,WORD 
TARGET 
wo 


28754 
<<FPROT_VALUE=U.254>-4> 
4096 

<<WOPRO-U. 256>-2> 

28759 
<<FPROT_VALUE-U.258>-4> 
8192 

<<WOPRO-U. 260>-2> 

28741 

<<FPROT_VALUE=U. 262>=4> 
16384 

<<WOPRO-U. 264>=2> 

28752 
<<FPROT_VALUE-U.266>-4> 
16384 

<<WOPRO-U. 268>=-2> 

28740 
<<FPROT_VALUE-U.270>-4> 
32768 

<<WOPRO-U.272>-2> 

28748 
<<FPROT_VALUE-U.274>=4> 
32768 

<<WOPRO-U.276>-2> 

5622 

<<U.161-U.278>-2> 

0 

4140 
<<NEXTPRO-U.280>-2> 


1E-sen-t9ee 0:06:91 yarett BL ingas2 v4.02749 


15F7 00258 ; gIBASTYPE 

FFFF O025A ; jtbastanitt 
oo2se RET STATE: : 
0025C RETSTART: 

4DF8 0025C ; TPASTYPE 


U. 284: .W 
0000* 0025E i. eres 
00000000* 00260 ; i. fBARADDA 
002C 00264 ; eaaltre 
U.288:  .WORD 
15F7 00266 ; TPASTYPE 
U.289:  .WORD 
FFFF 00268 i290: M0 
U 290:  .WORD 
4DF8 0026A ; TPASTYPE 
U.291: WORD 
0000* 0026C ; TPASSUBEXP 
U.292: .WORD 
00000000* 0026E ; TPASADDOR 
U.293: .LONG 
15F7 00272 ; TPASTYPE 
U.294: .WORD 
FFFF 00274 ; TPASTARGET 
U.295: . 
00276 Oe DELTA 
U.285: .BLKB 
91ED 00276 ; TPASTYPE 
U.296: RD 
00000000v 00278 ALS: ACTION 
0000* 0027C¢ 4 "contane! 
15F6 OO27E ; TPASTYPE 
U.299: .WORD 
FFFF 00280 ; TPASTARGET 
0.300: .WORD 
-PSECT 


00000 DC_KEYS:: 


00000 ATPASKEYO. ee 
0000* 00000 jiPASKEY 
0000* 00002 ; TPASKEY 


" 3 WORD 
0000* 00004 ; : 


16 
TREY ono 

0000* 00006 ; TPASKEY 
0.28:  .WORD 


5623 

-1 

0 

0 

19960 

<<U.285-U.286>-2> 
<<RETMIN_VALUE=U.287>-4> 
44 

5623 

-1 

19960 

<<U.285-U.292>-2> 
<<RETMAX_VALUE=U. 293>=4> 
5623 

-1 

0 

-28179 
<<TEST_CHAR=U.297>=4> 
<<U.285-U.298>-2> 

5622 

-1 

-LIBSKEYOS,NOWRT, SHR, PIC,1 


0 

0 
<U.9-U.1> 
<U.15-U.1> 
<U.21-U.1> 
<U.27-U.1> 


SETAC ibesen-1964 01:06:01 yanett OLten-32,v4.02762 
00008 OWNER_KEYS:: 


LKB 
00008 gTgasxerd 


-~BLKB 0 
0000* 00008 ; TPASKEY _ 
-40: WORD $b. 590.50 


Boo0e pice 
C JOURNAL REVS: ih 
0000¢ gipaswevo , 
0000* 0000c ; TPASKEY 
0.60:  .WORD <U.59-U.58> 


0000" O000E ; TPASKEY 
U.66: WORD <U.65=U.58> 


0000* 00010 ; TPASKEY 
0.72: | .WORD <U.71-U.58> 
0000* 00012 ; TPASKE 
0.78: | .WORD <U.77-U.58> 
0000* 00014 ; TPASKEY 
0.84:  .WORD <U.83-U.58> 
0000* 00016 ; TPASKE 
0.90:  .WORD <U.89-U.58> 
0000* 00018 ; TPASKEY 
0.96: .WORD <U.95-U.58> 
0000* 0001A s TPASKEY 
0.102: .WORD <U.101-U.58> 
0000* 0001C ; TPASKEY 
0.108: .WORD <U.107-U.58> 
0000* OOO1E ; TPASKEY 
0.114: .WORD <U.113-U.58> 
00020 mae A 
00020 gipasKevO : 
0000* 00020 ; TPASKEY 
0.126: .WORD <U.125-U.124> 
0000* 00022 ; TPASKEY 
0.134: .WORD <U.133-U.124> 
0000+ 00024 ; TPASKEY 
0.142: .WORD <U.141-U.124> 
0000* 00026 ; TPASKEY 
.150: sWORD —<U,149-U.124> 
00028 RET_KEYS:: ‘ 
00028 ; aTeasxevd. 
-BLKB OO 


«PSECT SOWNS,NOEXE ,2 
00000003 00000008 00000 TPARSE ert 


Q0008 eiys, atte ge 


QUAL _ACCESS== 
QUAL“ BACKUP== 


nm 


/ 
Fe 


SEA, ae stoctgge o06:9) yancat 8 


QUAL __NOBACKUP== 


lis 
SRC 


NOUS WN (OC OONOAUES WIN 


Dd TA-NGRE AD 
DATA, -NOURITES= 


JRNL-A 
JRNL “NOAI== 
JR 


JRNL onus 

JRNL “NORUM= 
TE eltAx SYSSFAO 

SE at LiescvT TIME 


LIB$CvT_DTB 
a git NAME 
Fs mi L_STATUS 


=>. 


ar 4 


SJFLAGS 


<—>pt 


LUE 
VALU Ee tie vk ~ VALUE 
“VALUE. LABEL “VALUE 

UE, G OUP 
, USER_VALUE 

N’ VALUE? ine Tax VALUE 
EX TVA UE N_VACUE 

*EXTRN Lue, veers. FACIL 

*EXTRN SOPERRED: SETS" WRITE 

*EXTRN SE1$,0F 


Re SMaCBR AMM OOS 
sere 7am 


ome “OMIT oe 


ITY 
ERR 


SFLAGS 


3 
SEIACT 1$-Se0-1 


ee 


s SSeuuse 


00000000' 
000000006 
0 

A 

A 

5 

A 

A 

3 


aD eet a ee 


om 
@Oowro7o fromm 
@Wounrngw 


64 
09 00000000" EF 
64 000000006 


COOoOoCooooooooooooooooooooo 


ODOOOCSSOOOOOOOOCOOCOOOOOoOooe 
= 
A 


F 
Dd 
E 
4 
£6 : 
0D 
56 00041 
$3 Dd 41 2$: 
2 04 D 44 
04 ° 48 
48 
00 40 
08 bo 4F 
7E 04 C 22 
000000006 99 FB 5 
5 4 50 
04 : E $0 
DD 0006 
14 11 00065 
50 65 00 4944 3$ 
09 19 QO06A 
OOOOOOFF 8&F 50 01 BeoS 
14 15 000 
00000000" 8F DD it 4$: 
04 A2 9F 0007B 5$: 
1 oD it 
00000000* 8F DD 0008 
64 4 fe st 74 
50 1 DO 00089 6$: 
04 0008C 


3; Routine Size: Routine Base: S$CODE$ + 0000 


141 bytes, 


Bc 12:08:59 HeCiutussneSsetattseses4 


«PSECT 


SCODES ,NOWRT,2 

ACC_ACT, Seve R2,R3,R4,R5 
ACC_VALUE, R 

{6S TOP. R4 

#8, SP 

PRivS 

al 


#1, LIBSSTOP 

#3, ACC_VALUE 
OPT 1ON_BLOCK, R2 
4(R2) 


$ 
AGC.VALUE.. RO 
RO, #255 
#<<<SETS_FACILITY@16>+4584>+2> 
4(R2) 


’ 
#<<<SETS$ 
#4, L 


FACILITY@16>+4344>42> 
Jesstop 


Poe 485 


0396 


0421 


0458 
0459 


m 3 
SETACT 16-Sep-1984 01:06:01 AX-11 Bliss-32 V4.0-74 Page 30 
v04~000 14-Sep-1984 13:08:59 CLIUTL. SRCISETACT .B32; 7 13) 


; 47 60 1 GLOBAL ROUTINE back_act = 

3 «47. 61 1 S++ 

> 474 462 1! 

: 475 465 1! This is the action routine for the /BACKUP qualifier. It simply 
3 $78 464 1 ! sets the correct bit in the flags word. 
3; «47 465 1! 

; 478 188 lon 

; 479 4 BEGIN 

; 480 46 setfile$flagsCqual_backup) = true; 

; 481 4 RETURN true; 

> 482 0470 END; 


vr 00 ENTRY BACK_ACT, Save nothing 3: 046 
000000006 00 4 00 BISB2 #4, SETFILESFLAGS + 046 
0 1 p 90 MOVL #1.R : 469 

4 0000¢ RET + 0470 


3; Routine Size: 13 bytes, Routine Base: S$CODE$ + 008D 
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a 
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eee 


IF .option_block(cli$w_qdvalsiz] EQL 0 
THEN SetfileSdflagsidate write = true 


Fperse block tpa$l_stringptr 
dc_state,dc_keys 


»Statu 
acre Status; 


SSSSSSSSASSSSSSSSPALLALRAPERER OER EER 


3 1OOOOCO oo 


1 

1 

1 

1 

1 

1 

1 . 
BEGIN 
LOCAL 

status; 
MAP 
option_block : REF BBLOCK; 

4 

4 

3 

4 

4 

4 

4 

4 

1 


Be Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se SF Se Ge Se Ge Se Ge Se Se Se Ge Ge Se Se Sees ese Se Se eees 
SSONONE WV OOO NAME ODR Ie 


RRNIRININDIPININININIDNS 2 2 2 OO St | OOOO 


PUP PUPUPV SPV SVIVSVSPV SSIS SISIIOI 


END; 
RETURN true; 
END; 


001C 
54 00000000" EF 9€ 00 
32 04 Ac D 
04 =A ° 
000000006 00 a8 : 
64 4 hg 3¢ 
04 AG Ae 00 
600008 a: we 
0000000" EF 9F 
F AS OF 
000000006 9 F 
D 
BD 
h2 9 


16- 
ihe 


lifier. 
If not, it defaults to DATA_CHECK=WRITE. 


4 
43 3 gen ROUTINE data_act (option_block, callback) = 
499 5 1! This is the action routine for the /DATA_CHECK qua 
4 $ i if any options were set. 
0 8 oo 
08 89 
04 90 
05 9] 
38 
94 
5 
6 


N 
tparse_block(tpaS$l_stringcnt] = .option_bloc 
= .option_bloc 
T" (status = LibStparse(tparse block, 


I 
NAL( set$_facility*16 + shr$_syntax + sts$k_error, 
option_blockCcli$q_advaldesc], 


1986 92:98:59 


kict {gu_advalsi2); 
kCcli$ 


AX=11 Bliss-32_v4.0=76 p 
CLIUTLCSRESSE TACT 03024 ol 


fi It checks to see 


a_qdvaladrJ; 


DATA_ACT, Save R2,R3,R4 
TPARSE_BLOCK+8, R4 

MOVL OPTLON-BLOCK, R2 

TSTW A(R ) 


BNEQ ; 
B1SB2 a8. SETFILESDFLAGS + 0498 
4(R2), TPARSE_BLOCK+8 ; 502 
VL 8(R2), TPARSE-BLOCK+12 : 050 
DC_KEYS : 0504 

DC "STATE ; 

TPARSE BLOCK : 

+e LIBSTPARSE ; 

R STATUS ; 
stitus, : 0511 
PIAS) : 0510 


4 
VO4~000 sSSeorage 04:06:09 yet, abLe32 yt 2520 Poe 3) 


01 DD 00045 #1 : 

00000000" 8F DD 00047 PUSHL  #<<<SET$_FACILITY816>+4344>+2> : 

000000006 00 4 FB 00040 CALLS #4, LIBSSIGNAL 3 
50 3 00 00054 MOVL STATUS, RO 3 0512 

04 00057 RET : 
50 01 DO 00058 2$: MOVL #1, RO 3 0515 
04 00058 RET 3; 0516 


; Routine Size: 92 bytes, Routine Base: S$CODE$S + O0A7 


sR is Goda BE ese ee 


4 
HE$goc1984 94:06:09 WARGO OLse4c3R tt 83249 Pa9e 18} 


: } GLOBAL ROUTINE enter_act (option_block,callback) = | 
; 1 i 

3 5 1 ! This is the action routine for the /ENTER qualifier. 

; ; ! : The new synonym is collected. 

> - 

: 539 4 2 BEGIN 

; 540 5 

: 541 § MAP 

3 ri} oprion_block : REF BBLOCK; 

; 54 

; 544 

: 545 530 ! 

; m4 531 ! Get the expanded file string 

: 3ag agg 5 | 

: 549 5 CHSMOVE (.option_block{cli$w_qdvalsiz), ! Move file strin 
; 550 2 5 oot oncblockts tisertdvetade ° ‘ . 
; 5 83 rename_buf); 

: 55 5 file_name(0) = .option_block(cli$w_qdvalsiz]; ! Store Length 

: 228 $8 fitecnamety4 = “option-block cliSacadvaladr; ! and eddress 

; 556 541 2 RETURN true; 

5 328 0542 1 END; 


007¢ 90000 .ENTRY ENTER_ACT, Save R2,R3,R4,R5,R6 : 0517 
56 04 AC 06 9002 MOVL OPTIOR_BLO : 0534 
000000006 00 08 86 4 A6 0 MOVC3 4(R6), a8(R6), RENAME_BUF ; 
000000006 00 4 Ab 3C 0001 MOVZWL 4(R6). FILE_NAME : 0538 
000000006 00 08 A6 dO 00018 MOVL  8(R6). FILE~NAME+4 : 0539 
0 01 00 9020 MOVL #1, RO : 0541 
4 0002 RET > 0542 


3; Routine Size: 36 bytes, Routine Base: SCODE$ + 0103 


Pd 
- 
4 


III 
PUSSIES BP 


WRI OVOONAUSW 


4 


SEtsoreRees g 


AX-11 Bliss-32 sf o35 
CLIUTL.SRCJSETACT 


i This is the action routine for the /ERASE qualifier. 


a LOBAL ROUTINE erase_act = 
{ 


sets the correct bit in the flags word. 


BEGIN 
setfile$flagsCqual_erase] = true; 
RETURN true; 


won 


13 bytes, Routine Base: S$CODE$ + 0127 


Save A al 
*FILestun . 


F 4 
SETACT 16-Sep-1984 01:06:01 AX-11 Bliss-32 V4.0-74 
vO0-500 187808-1 380 9:08:99 CLIUTL.SRCJSETACT.B32; 
GLOBAL ROUTINE noerase_act = 
i 
! This is the action routine for the /NOERASE qualifier. It simply 
: sets the correct bit in the flags word. 
ie 


BEGIN 
setfile$flagsCqual_noerase] = true; 
RETURN true; 


= ee 
mm 


SS SaToR 
FORISSeIenE 


00 SENTRY NOERASE_ACT, Save nothin 
000000006 90 02 BisB2 #2. SETFILESFLAGS®1 8 
6 C yt rice 


3; Routine Size: 13 bytes, Routine Base: SCODES + 0134 


of 
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QERRANLESEIEAES 


SSNS 


MEW OOO NO 


SFUFUSUSUSUSUSUSUSUSOSUSUOSISIOSIOSISUSIOSIOSIOSIS 


60 

60 

604 

605 3 
Re 
609 334 
610 236 
Se 
15 595 
614 5 
615 059 


Sete nay YANG Ht Bb iagc3 


V4.0-74 
Fatt 83504 
GLOBAL ROUTINE exp_act (option_block,callback) = 
i 
i This is the action routine tor the /EXPIRATION qualifier. 
; If no value is given, exit with a syntax error. 
-= 
BEGIN 
Loc 
status, 
desc : BBLOCKLdsc$c_s_bin); 
P 
option_block : REF BBLOCK; ! Define the CLI options block 
1 
Get the date, signalling a syntax error if no good. 
fat it Lengehd, = option ablocktsl ity. advalsiz); 
desc(dsc$a_pointer] = .option_block(cli$a_qdvaladrJ; 
T (stdtus = LIBSCVT_TIMETdesc,exp_value)) 
EN BEGIN 
SIGNAL_STOP( set$_facility*16 + shr$_syntax + sts$k_error, 
option.blockLeli$q_ advaldesc], 
RETURN Status; 
ELSE RETURN true; 
ND; 
ENTRY EXP_ACT, Save R2,R3 
SUBL2 #8, SP 
MOVL  OPTION_BLOCK, R2 
MOV 4(R2), DESC 
MOVL 8(R2), DESC+4 
PUSHAB EXP_VALUE 
PUS. pest 
CALLS #2, LIBSCVT_TIME 
VL RO, STATUS 
BLBS STATUS, 1$ 
PUSHL TIAWs 
PUSHAB 4(R2) 
PUSHL #1 
PUSHL as<<seTs FACILITY@16>+4344>+42> 
CALLS #4 {ess T0P 
MOVL =n 1S . 


> 
ew 
o 


i 
ne ee 


-_-_—-_--—-— --- -~4 


¥b4~600 HE$coc1984 $3:08:9)  YAGUA SheScBtad4 8384 met 


3; Routine Size: 68 bytes, Routine Base: SCODES + 0141 | 
| 
| 


4 


SETAE 1Eo$eoctge 04:06:91 yanett. OL ten=sz,y4.05749 


: GLOBAL ROUTINE noexp_act = 

H i 

; i This is the action routine for the /NOEXPIRATION_DATE qualifier. 

: H It supplies an expiration date of zero. 

: 858 ine 

; ° ¢ BEGIN 

: 6 CHSFILL(0,8,exp_value); ! Zero out the expiration date 
; é setf Test lagstguet expil = true; ! Set the expiration flag on 

: 6 


RETURN true; 
END; 


003¢ 90000 .ENTRY NOEXP_ACT, Save R2,R3,R4,R5 
08 00 6E 00 2¢ 900¢ MOVCS #0, (SP), #0, #8, EXP_VALUE 
000000006 00 0000 
000000006 00 04 88 9000¢ BISB2 #4, SETFILESFLAGS+1 
50 01 DO 0001 MOVL #1. RO 
04 00016 RET 


; Routine Size: 23 bytes, Routine Base: S$CODE$S + 0185 


Page 5) 


] 
| 
a 
0608 
0610 
0611 
| 
| 
| 
| 
| 
] 


4 
Wb-Sep-1984 01:06:01 yAKott BL in9=82 v4.0-742 


of 
3 


: é ¢ 8 ! GLOBAL ROUTINE ext_act (option_block,callback) = 

; 14 1 I 

; 635 615 1! This is the action routine for the /EXTENSION qualifier. If no value is 
; 218 } : specified, the default value of 0 is used. 

H 51 leo 

; 073 i BEGIN 

> 641 LOCAL 

3 ots : § status, 

: oz tH desc : BBLOCKCdsc$c_s_bin); 

3 645 605 2 MAP 

: o*6 : $ option_block : REF BBLOCK; ! Define the CLI options block 
3 ec : 3 exte_value = 0; ! Set up default 

; 650 

3 $3) : : : See if a value was specified. If not, then use the default. 

; $38 : : IF .option block(cli$w_qdvalsiz) EQL 0 

3 654 : THEN RETURN true; 

3 02? 635 

; 637 : If the value is there, convert it and return 

3; 659 : 5 if NOT (status = LIBSCVT_DTB(.option_blockfel isu qdvalsiz], 

; 660 640 option block(cli$a_qdvaladrJ, 

; 661 641 exte_value)) 

; 066 : ; THEN 

; 66 . BEGIN 

3 pre : : SIGNAL_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 

3 666 : : option_block(cli$q_qdvaldesc), 

3 rot 064 are -Status); 

3 669 5 2 ELSE 

3; 670 650 BEGIN 

3; 671 51 4 'F NOT (.exte value GEQ 0 

3; 67 26 4 ARD 

3; Of 53 4 eexte_value LEQ 65535) 

3 ors a THEN SIGNAL_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 
; ore 56 opt ion_block(¢l i$q_qdvaldesc, 

3; 67 5 set$_facility*16 + shr$_valerr + sts$k_error); 
3 or 28 END; 

3; OF 

gs. ? 


RETURN true; 
END; 


000C 000 eENTRY EXT_ACT, Save R2,R3 
53 000000006 00°96 S009 HOVAB EXTE. VALUE. R3 


40 
(21) 


ifoseo-t9gs 01:96:01 eth 


SEtAtT ogee 


SE 08 C2 SUBL2 
D CLRL 41a 
52 04 At D MOVL a SUE cK. R2 
A 8 TSTW 
; BEQL 
a: rit 
re gf A RP MOVZWL rf RS} -(SP) 
LL LIBSCVT_D 
000000006 F CALLS #3, LIBSCVT_pTB 
L : 
4 E BLBS statu Us i$ ~ 
2 i pet its 
50 9 i 1$: HOV wipe’ RO 
QOOOFFFF  8F p} cHPL RO, #65535 
eoeeveay* af gp q3: PUSHL PEeESETS_PFACILITYOIED04504008> 
4 Ae F $: PUSHAB 4(R2) 
DD PUSHL #1 
00000000" 8F DD PUSHL  #<<<SET$ FACILITY@16>+4344>+2> 
000000006 99 4 FB CALLS #4, Lie BSSTO 
1 B0 #1, 


; Routine Size: 88 bytes, Routine Base: SCODES + 019C¢ 
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Se Se Ge Ge Ge Se Se Ge Se Ge Ge Se Se Ge SF Se Se SF Se Se Se Ge Se Ss Se Se Se Se Ge Se Se Se Ge Se Se SeGe ee 


709 


SANS 
PAD et td ed at et ot ot 2 
SCOONOUSWN—O 


Sze 


rtotatats 
sao, 


aANw 
WI —OOONO Pun—ooeo~ wn 


o 
oO0000®@ FS S 
We 


Fun 


Ptotatetatetatatots 


= OROPORO UII inononononononononononofonononononunonofnungd 3 


1$-e0-1964 09:06:01 yanett al ieg-32 v4.03742 


Ss 
® 


AL ROUTINE fprot_act (option_block,callback) = 


his is the action routine for the /FILE gS ateccseen qatar of 
T VOLUME. The ote hes is parsed and ey away. he 
rotection is not valid fatal error message is i 


uuw- + 
om 


LOCAL status; ! Status return 
MAP option_block : REF BBLOCK; ! Define the option block 


i Stuff the TPARSE block with the string 


leoree -Plockttpast_ stringent option -plockhct tsu. qdvalsizj; 
tparse_block(tpa$l"stringptr] = = ‘option: block€cli$a_qdvaladrd; 


fprot_value = 0; ! Initialize file protection value 


i Now to parse the protection given. When finished, FPROT_VALUE will 
! have the following values: 


FPROT_VALUEClow word] = protection value 
FPROT-VALUEChigh_word] = group mask i.e. SYSTEM, OWNER, GROUP, WORLD 


F NOT (status = LSOSTRRSE Sep eres. pan, 
- 0.5 


oh 
THEN SIGNAL_STOP(set$ _faciliey Te” 4 sshrs syntax + sts$k_error, 


option_block(cli$q_qdvaldesc], 
-Status); 


i 
i 
i 
i 
i 


RETURN true; 
END; 


o00c .ENTRY FPROT_ACT, Save R2.R3 
53 00000090" EF aE VAB TPARSE 6 Lock bi RE: 
4 A VL or Roe 
4 A C MOVZWL (R2) of 
04 A A> D0 00011 MOVL. 8(R3)- “TPARE: -Btocks12 
§ 00 D4 00016 CLRL «PROT VALUE 
EF 9F 0001 PUSHAB PRO_KEYS 
’ EF OF PUSHAB PRO“STATE 
FB OAS. OOF PUSHAB TPARSE BLOCK 
000000006 99 F CALLS #3, IBSTPARSE 
4 E BLBS statu S, 
D PUSHL 
04 A2 OF puss tne) 
01 DD 0003A PUSHL 


0679 


o 
co 
nm 


¥64~600 


; Routine Size: 


77 bytes, 


000000006 98 


00000000* Y DD 


7 
f 


Routine Base: SCODES + 01F4 


i 


if:§ 


4 


; 18: 


C 


1882 93:88:85 


PUSHL 
CALLS 
MOVL 
RET 


si 
"i, Kb 


Cert Osae ase tatt 83024 


; FACILITY8@16>+4344>42> 
SToP 


Page 233 


a4 
3 


FL OSAL ROUTINE gbuf_act Ni gon = 


sor}98e C4060) YMGHY BLeNcHe, 


i This is the action routine for the GLOBAL BUFFER qualifier. The number of 


7 global buffers desired is collected. 


—OODONAOUS win 


fet Oa lololelelololo) 


tatus, 
: BBLOCKCdsc$c_s_bln]; 


NNN 
wm 


! Define the CLI options block 


OOCooooooooooooooo 


i i 


Convert the value given (in ASCII) to a numeric value. 


cli$w_qdvalsiz], 
cli$a_qdvaladr), 


ea ad a eS SS 


ir NOT (status = LIBSCVT_DTB(. etre pieck 


SZ 


L_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 


option. plesttet ta, advaldesc], 


IA WIIPOPoRoTnuTronofnononon 


WN =O OONOA UNSW 3 9 OONAULS UR OC VONOULS WO 


If the value is not a word or less in length, signal an error. 


buf value LEQ 65535) 
6 +shr$_syntax + sts$k_error, 


-gbuf value GEQ 0 AND. 
L_STOP(set$_facility* 


ne 


option_ blockC¢li$q_ advaldesc], 
“shr$_valerr + sts$k_error); 


set$_facility*16 + 


—PUNINIWWIWIW FS WWIII IW nononononononunononung 2 
mm . 
a = 
i) v 
w 
=z 
@ 


SOCSOCOCOCOoOooOooooooooooooocoo: 
SSNS SNS NSS SSS SNS 


7? 
000000006 ob 


uo 


sENTRY GBUF att ee R2,R3 
MO + GBUF AY 
SUBL usp 


ta on BLOCK, R2 
=(SP) 


aS Lest. DB 


G-Sep-1964 01:06:0)  yatct1 BLisg=82_ 4.0274 


SOOWOFr ONO" 
TU "DOOOWSO 


een TATUS 
MOVL a ae RO 
CMPL RO, #65535 


PUSHL &#<<<SETS_FACILITY@16>+4584>+2> 
PUSHAB 4(R2) 


PUSHL #<<<SET$_FACILITY@16>+4344>+2> 
CALLS #4, LIBSSTOP 
MOVL #1, RO 


A 


5 
SETACT 1b-se -1984 01:06: AX-11 Bliss-32 V4.0-74 Pp 4 
vous 1e-8ep= 1882 93:08:83 | Heeb the ssé eat -835: age 345 
GLOBAL ROUTINE journal_act (option_block,callback) = 


i This is the action routine for the /JOURNAL qualifier. S8ased on the 
: journal types set, specific journaling bits are set. 


74 


FH 743 «1 

; 1 

3 1 

; § 1 

: 

; aay 7 ; : BEGIN 

: of $8) § Locat 

: £76 7 status; 

3 a4 754 

: #5 Fe P option.block : REF BBLOCK 

; 8 y § option_block : 3 

3; 781 bree ! 

3 res 759 ! Use TPARSE to parse the journal List. 

fe ee 

; 785 O76 sporse_block! tpest_stringcnt = “ope ton btockict itv.edvetlsi é 
: res 3707 tparse_block(tpa$l_stringptr] = .option_block(cli$a_qdvaladrJ; 
; 788 o768 IF NOT (status = LIBSTPARSE(tparse_block, journal_state, journal_keys)) 
; 14 o768 THEN SIGNAL_STOP(set$_facility*16 * shr$_syntax + sts$k_error, 
: 791 0768 option_block(cli$q_qdvaldesc), 

: re 8 i -Status); 

: ee 8 1 If both RU and RUM were specified, then signal a syntax error. 
: 796 ores 5 

3 0774 

3 0775 § 

3 0 $ 

3 0 2 

3 0778 

; 0779 

3 0780 ; 

; 0781 


SSN NNN SSS 
SOON NNN NNN NSO OO 


797 IF C.son ti less flogst rnt_ru) AND .setfile$jflagsCjrnt_rum]) 
ie THEN SIGNAL_S OP (set facility*16 + shr$_syntax + stsS$k_error, 
800 option_block(cli$q_qdvaldesc), 
rt set$_facility*16 + shr$_confqual + sts$k_error); 
50 RETURN true; 
804 END; 
001C 00000 ENTRY JOURNAL_ACT, Save R2,R3,R4 : 0743 
4 900008 6 00 9E 000 VAB LIBSST 3 
000000° EF 9 MOVAB TPARSE_BLOCK+8, R3 ; 
4 A g 1 VL OPT ION_BLOCK 3 0762 
6 4 Ag 3C 00014 MOVZWL 4(R2), TPARSE_BLOCK+8 3 
046 ##A A 18 VL 8(R2), TPARSE_BLOCK+12 : 876 
999009 ' EF 9F 0001 PUSHAB JOURNAL_KEY : 076 
000 * €F OF PUSHAB JOURNAL STATE : 
F & F PUSHAB peanst LOCK : 
000000006 9 4} CALLS #3, LIBSTPARSE ; 
DD pies, Statue’ | ; 0769 
064 #=#A oF PUSH ttRe) : 0768 


a 


SETAE ibeseoct9gs 01:96:01 yaKctt BL ia4=32 v4.0274 


1 DD B SHL #1 
00000000" 8F DD i PUSH #<<<SET$_FACILITY8@16>44344>42> 
6 F 4 ¢ LL as L1essror 
000000006 00 ? a6 1$ IST setr LESJFLAGS 
14 000000006 00 of & 46 BBC » SETFILESJFLAGS+1, 2$ 
00000000" 8F DD 5 PUSHL &#<<<SETS_FACILITY@16>+4832>+2> 
04 A2 9F 0005C PUSHAB 4(R2) 
1 DD 0005F PUSHL # 
00000000* 8F DD 00061 PUSHL  #<<<SET$_FACILITY@16>+4344>+2> 
64 4 FB 00067 CALLS #4, LIBSSTOP 
50 1 b? gegen 2$ MOVL #i, 
4 00060 RET 


3; Routine Size: 110 bytes, Routine Base: S$CODES + 0292 
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x Fo 
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VEUN “OOOO wry 


MIPIPIMIPININD 2 9 2 SS SS 
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SSessssss 
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FUNLSSON 


9.09 0D 09 CO CD: 
ww 
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oo 

@ 
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5 
HESeoct9gs (4:06:09 paved OLss9238 4403749 
GLOBAL ROUTINE Label_act (option_block, callback) = 


i This is the action routine for the LABEL qualifier of SET VOLUME. It 
! retrieves the value of the string, checks that it is no longer than 
: twelve characters, and stores length and location in LABEL_VALUE. 


BEGIN 
LOCAL status; ! Status return 
MAP option_block : REF BBLOCK; ! Define the cli block 


' 
: Check that the string is no longer than twelve characters. 


iF .option_block(cli$w.qdvalsiz) GTR 12 
THEN SIGNAC_STOP(set$_Tacility*16 + shr$_syntax + sts$k_error, 


option_block(cli$q_qdvaldesc), 
: set$_facility*16 + shr$_valerr + sts$k_error); 


Store the location and length in LABEL_VALUE 


labet_vatuelo} = -aption_plockfcl i$w_advalsiz : 
label_valuel1] = .option_block(cli$a_qdvaladrJ; 


RETURN true; 
END; 


0004 00000 sENTRY LABEL_ACT, Save R2 
52 7 AC 00 00002 MOVL OF TOR Bt CK, R2 
0c 4 A2 Bi 00006 CMPW 3 s«4(R2), #1 
1 1B QOOOA BLEQU 1 
seaaaas 8F D 0000 PUSHL &#<<<SETS_FACILITY&@16>+4584>+2> 
A F 0001 PUSHAB 4(R2) 
DD 0001 PUSHL @ 
00000000" 8F DD 1 PUSHL #&<<<SET$_FACILITY@16>+4344>+2> 
000000006 4% FB 0001D CALLS #4, L1BSSTOP 
100000006 0 A 4 1$: MOVZWL 4(R2 » LABEL_VALUE 
000000006 ; 8 Ad DOD C MOVI. 8(R2), LABEL_VALUE+4 
0 BO mO;. #1, RO 
7 RET 


56 bytes, Routine Base: SCODE$S + 0300 


3; Routine Size: 


oo 
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ss 
33 
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oooo 
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= 


FS 
1e=3ep=198e 12:08:59 — EekiunsreSsetattssest Page 26) 
nee ROUTINE owner_act (option_block,callback) = 


' 
! This is the action routine for the OWNER_UIC yt pee dat The input is 


a 
s 


—> 


EWN 


: parsed to obtain the group and member numbers of the 
= 


BEGIN 


AL 
status; ! Status 


= 


DONO MNS WO VOONOULE VT 


MAP 
option_block : REF BBLOCK; 


vic_value = 0; ! Set the UIC value to zero initially 
i 

: Check to see if UIC specified. If not, use current process UIC. 

if option blockCcLiSu qdvatsiz] Fa 


0 
THEN SGETJPICITMLST = OPLIT(WORD( tis vic), 
ic_value, 


§) 


5 
5 
5 
5 
5 
5 
5 
5 


vuvuv 


BIW A UII = 
OONOAE UI IODDNOU 


PIR IMIAE BHF BENIN BAAN & FAAP GEPINIPIPIPIPIPIPIPUPIPIPIPIPIPINIPYD = 9 = 2 
Gg 


ELSE 
BEGIN 
Sporse_blockt tpesi stringent = soption blocktct isu_advelsiz]: 
tparse_block(tpa$l_stringptr] = .option block(cli$a_qdvaladrj; 
IF NOT (status = L7b$tparse(tparse_block, 

owner_State 


owner _keys) 
THEN SIGNAL_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 
option_blocklcli$q_qdvaldesc]); 
Fut -setfile$flagsCqual_parent 
BEGIN 
IF NOT ((.group LEQ %0°377° AND .group GEQ 0) 


(.member LEQ %0°377° AND .member GEQ 0)) 
THEN SIGNAL_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 


option blocklct i$q_qdvaldesc). 


sets. fis +"shr$_valerr + sts$k_error) 
Fist uvic_value = .group*16 + .member; 
END; 


RETURN true; 
END; 


DONA VNE WN $$ O DONO UES WN 


PAM 


a nae cen) 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
0304 0004 00000 P.AAA: .WORD 4, 772 : 


Sere nip Yaxstt OL t84-82,v4.0-74 Page 50 


ooooo000 Sonee000” Sones LONG On gn te 


sEXTRN SYSSGETJPI 
«PSECT SCODES,NOWRT,2 


007¢ ENTRY OWNER ACT, Save R2,R3,R4,R5,R6 3; 0812 
3 G6 MOVAB UIC Unis R 3 
G MOVAB ME 3 
4 6 MOVAB LIB £86 a : 
3 F MOV PARSE Bcockss, R3 ; 
6 D CLRL —UIC_VAL 3 827 
52 04 AC D MOVL OPTION. BLOCK, R2 : 0832 
A e TSTW © 4(R2) : 
1 BNEQ =: 1 : 
7E 7C CLRQ = = (SP) $ 0836 
7E 04 CLRL = (SP) : 
USH 7 $ 
00000000' F F BUSHAB P AAA 
43 D4 CLRL = = (SP) ; 
000000006 00 97 Fe CALLS 4. SYSSGETJPI : 
; A x, MOVZWL 4(R2), TPARSE_BLOCK+8 > 0839 
04 A p MOVL 8(R2), TPARSE-BLOCK+12 : 0840 
999000 ’ EF OF PUSHAB OWNER.KEYS + 0841 
' EF OF PUSHAB OWNER™STATE : 
& AS OF SHAB TPARSE BLOCK 3 
000000006 00 Q Fe CALLS #3, LIBSTPARSE : 
OE LBS stArus. 2s F 
04 Ag oF PUSHAB 4¢ 2) > 0846 
00000000* 8F DD 00C SHL &#<<<SET$_FACILITY@16>+4344>+42> : 
FB 000 CALLS » LIBSSTO : 
42 000000006 EO 00070 28: BBS jySETEALESFLAGS*2. 58 : 0847 
000000006 DO 000 MOVL GROU : 0850 
OO0000FF aF 1 000 CMPL = RO, W358 : 
14 14 000 BGTR = 3$" : 
30 3 ii TSTL RO : 
51 6 00 ROVE AMBER RI ; 0852 
OOO000FF  8F i ! 06 CHP Rl. #255 F 
ue a 
1 ps OC TSTL =o ; 
6 0 BGEG §6=- 4S ; 
00000000" 8F DD 0009C 3$: PUSHL &#<<<SETS_FACILITY@16>+4584>+42> 3 085 
04 Ae oF 00 PUSHAB 4(R2) > 085 
ie P+ 
00000000" 8F Dd 000 PUSHL #<<<SETS_FACILITY@16>+4344>+2> : 
64 4 Fe 0 CALLS #4, LIBSSTOP ; 
Ui P+ 
50 p ; D0B2 4$: ASHL #16, RO, RO > 0857 
66 : C1 00086 ADDL3 MEMBER, RO, UIC_VALUE ; 
1 DOBA 5$: MOVL #1, RO ; 0861 
BD RET ; 0862 


3; Routine Size: 190 bytes, Routine Base: S$CODES + 0338 
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| 


J 


| 


WDOOOODOOVDOVDOVOOVOVOVOOVOVOVOVDVDOOWOVDOOVOVOO 
IIT NNR REN Se tee Pe ta tetete tte tates 


a4 
s 


SES3SFES5 


ah St ot a 4 Ht OLD OCS 


1 
1 
1 
1 
1 
1 
1 
1 
1} 
MAP 
i 
THEN 
BEGIN 
END; 
i 
THEN 
BEGIN 
END; 
a 
THEN 


Sep-1984 01:06:01 AX-11 Blis setat 0-74 
iesect9ge 93:04:09 ya, Shoscde at 8524 
- ROUTINE retent_act (option_block,callback) = 


i This is the action routine for the /R Le gteat iter 

The a. nocens tae value must be given. no maximum retention value is 

: spect ites ° p yes ve f twice the minimum ewe” os more than a week more than 
e@ minimum) is used. 


BEGIN 
LOCAL 


status, 
temp_ desc : BBLOCKCdsc$c_s_binj; 


option_block : REF BBLOCK; ! Define the CLI options block 


' 
! Parse the input, to obtain the minimum and maximum retention times. 


Fi (8. g. retmin_value); ! Zero minimum value 
cise itee e retmax_value); ! Zero maximum value 
tparse_block(tpa$l_stringcnt] = .option -plockict tsu_ advalsizj; 
iPenar “block(tpa$l“stringptr] = .option_block(cli$a_qdvaladr 

(status = (ThStparse(tparse block, ret_state, ret keys) 
SIGNAL (set$_facility*16 + shr$_syntax + sts$k_error, 


option. block(€cli$q_ edveldese 3}: 
RETURN false If error in parse, return false 


' 
! If a minimum value was not supplied, signal an error 


IF .retmin_value(0) EQL 0 


SIGNAL (set$_facility*16 + shr$_syntax + sts$k_error, 


tion_block(cli$q_qdvaldesc)); 
RETURN gption e; “ —— . 


t 
' Convert the minimum retention value to 64-bit system delta time format 


if NOT (status = LIBSCVT_DTIME(retmin_value, temp_desc)) 


BEGIN 
SIGNAL (set$_facility*16 + shr$_syntax + sts$k_error, 


————_—_——_—- 


Page 435 


a4 
= 


OOOO 
ODONAUSUI—O OC 


Oo 


OO 


SARIN HAAN ME BBB BB PE PP PNIPINIPUNINI Itt 


SISSFELESS 
2 


3S 


ANN 
NOUS WN OO 


WOWOODOODOOO 
a 


Sse 


Se Se Ge Se Se Gs Ge Se Ge Se Se Se Ge Se Ge Se Ge Se Se Se Ge Se Se SF Ss Ge FSS Ss Se SF Ss Se Se Ss ee 


oo 

SS3SS333 

MMII , 

MEW OS OONOULWR Oo 


oo 
— 


an 


5 
Heosee-19be 06:0) YANG OLsenc3e ye g3749 raae of} 
rétmin_vatue, 
RETURN iSises 
ELSE CHSMOVE(8, temp_desc, retmin_value); ! If no error, put 64-bit 


i delta time in place 


' 
: If a maximum value was supplied, then convert it in the same way. 


If .retmax_value(0) NEQ 0 
THEN 
BEGIN 
co (status = LIBSCVT_DTIME(retmax_value, temp_desc)) 


BEGIN 
SIGUA Cpoes._fas ti tey*t6 + shr$_syntax + sts$k_error, 


retmax_value, 
Status); 
RETURN .status; 


N 
ity CHSMOVE(8, temp_desc, retmax_value); 


If no maximum value was supplied. then use twice the minimum value. If this 
value is greater than a week, use only a week. 


ELSE calculate_max(retmin_value, retmax_value); 
RETURN true; 
END; 


OFFC 00000 ENTRY RETENT ACT, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0863 

B 6 E MOVAB LIBS$CVT_DTIME, R11 : 

A G 80 ze p 05 MOVAB LIBSSIGRAL, Ri : 

9 F 9€ 19 MOVAB TPARSE_BLOCK+8, R9 : 

4 G 9E 0001 MOVAB RETMIN-VALUE, fg : 

i G H i OVA R THAN-VALUE R ; 
00 6E sé 8 MOVCS #0. (SP), #0, #8, RETMIN_VALUE ; 0886 
00 6E p 2c : MOVCS #0, (SP), #0, #8, RETMAX_VALUE 3 0887 
52 6 A R0 MOVL PTION_BLOCK, R2 > 0889 

é 4 hs ¢ MOVZWL 4(R2), TPARSE_BLOCK+8 : 
04 Ad : A p ¢ MOVL  8(R2). TPARSE-BLOCK+12 > 0890 
00000000" EF 9F PUSHAB RET_KEYS : 0891 


Soseo- 1964 01:06:01 yaRctt eb inn-32,y4.0374 


PUSHAB STATE 
PUSHAB TPARSE BLOCK 


lio 


eaaeat | 1 


1 
1 
tf pane 
000000006 5 " CALLS af Bi 
E A BLBC 
6 D TSTL feinin VALUE 
F BNEO 
04 A2 OF $1 1$: PUSHAB 4(R2) 
DD PUSHL #1 
00000000" 8F DD 66 PUSHL  #<<<SET$_FACILITY@16>+4344>+42> 
A 3 Fe C CALLS #3, LIBSSIGNAL 
4100 8F 6B $t 28: PUSHR #*M<R8,SP> 
: F 3 CALLS #2, LIBSCVT_DTIME 
4 D 7 MOVL RO, STATUS 
11 6 €£ 7B BLBS STATUS, 3$ 
$ DD 0007 PUSHL STATUS 
DD 9 PUSHL 
1 OD PUSHL # 
00000000" 8F DD 000 PUSHL #<<<SET$ 1-1 gillian 
A 4 f OOBA CALLS #4, LIBSSIGNA 
68 6E 08 28 OOO8F 3$: MOVC3 ate DESC, RETMIN_VALUE 
D 0093 TSTL Retna 
6 13 0009 BEQL 
4080 §8F BB 00097 PUSHR 
68 ‘ FB 00098 CALLS - <r SCVT_DTIME 
36 D 00095 MOVL RO. STATU 
1 6 €8 OO0A1 LBS STATUS, 
36 DD OOA4 PUSHL 
DD 00 Ab PUSHL 
1 0D 000 PUSHL #1 
00000000" 8F DD OOOAA PUSHL  &#<<<SET$_FACILITY@16>+4344>+2> 
6A 4 FB 90080 CALLS #4, LIBSSIGNAL 
50 4 BO 908 MOVL ST TATUS’ R 
67 6E i 28 a0? 4$: MOVES #8, TEMP_DESC, RETMAX_VALUE 
7 DD itt 5$: PUSHL R7 
8 DD oer PUSHL R 
000000006 00 2 F C1 CALLS #2, CALCULATE_MAX 
0 1 (8 6$: MOVL #1. RO 
4 000¢B RET 
50 04 O00CC 7S: CLRL = RO 
4 OOOCE RET 


3; Routine Size: 207 bytes, Routine Base: SCODES + 03F6 


Bete Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Se Ge Ge Se Ge Ge Se Ge Se Se Be Se Be Se Ge Se Ge Be Ge Se Ge Se Ge Ge Be Be Se Se Se BeBe Be Se 


a4 
3 


00.0 
Sea 


PES SSEES SESE S SEER 


I 


3 Routine Size: 


5 
IB-Sem-1984 1:06:01 yaxatt BLis4=32_v4.0-74 


1 ROUTINE test_char = 
i } i++ 
Be } This routine is used by TPARSE to process the /RETENTION values. 
9 1 i NOTE that this routine references the Argument Pointer (AP) directly, 
Be ; ; due to the fact that TPARSE does not follow the calling standard. 
1 ie. 
5 1 
BEGIN 
3 BUILTIN AP; ! Declare the argument pointer 
383 LOCAL 
971 ptr, 
4A char : BYTE; 
974 tr = .ap + SBYTEOFFSET(tpa$b_char); ! k at the ch 
0375 = é eRsrchartcotese paSb_ Look a e character just read 
97 IF .char EQ. ‘,' 
978 2 THEN RETURN false ' If a comma, then end of string 
44s ELSE RETURN true; ! Else continue processing 
0981 1 END; 
0000 00000 TEST_CHAR: 
WORD save nothing 
50 18 AC 9E 00002 MOVAB 4(AP), PT 
51 60 90 00 Ove (PTR), CHAR 
2c 51 91 00 CMPB CHAR, #44 
93 12 OC BNEQ 1$ 
4 of CLRL RO 
4 0001 RET 
50 01 00 BR 1s MOVL #1, RO 
4 00014 RET 


21 bytes, Routine Base: S$fODE$ + 04C5 
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16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 

122868713 4 93:88:95 CLIUTL.SRC SETACT o3e64 
GLOBAL ROUTINE user_act (option_block, callback) = 


i This is the action routine for the USER_NAME qualifier of SET VOLUME. It 
! retrieves the value of the oir ing. checks that it is no longer than 
: twelve characters, and stores a descriptor pointing to it. 


= 

BEGIN 

OWN user_label : VECTOR(12,BYTE); ! Place to put process username 
LOCAL status; ! Status return 


MAP option_block : REF BBLOCK; ! Define the cli block 
1 
: If no username was specified, use the current process username. 


IF .option_block(cli$w_qdvalsiz] EQL 0 
THEN GIN 
SGETJPICITMLST = UPLIT(WORD(4, sptS_usernene? . ' Get the username 
er_labe ! Store it here 
user_value(0, ! Store length here 
user_value(1] = user_label; 
END 
ELSE 
BEGIN 
' 
: Check that the string is no longer than twelve characters. 


IF .option_block(cli$w_qdvalsiz] GTR 12 
THEN SIGNAC_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 


option_block(cli$q_qdvaldesc), 
set$_facility*16 + shr$_valerr + sts$k_error); 


: Record the length and location in USER_VALUE. 


user value?) . option plockct {$u_advats iz]: 


user value -option_block(cli$a_qdvalad 


RETURN true; 
END; 


-PSECT SPLITS,NOWRT .NOEXE,2 


02 4 10 P.AAB: .WORD 4, 514 
000000006 4 $" 14 +ADDRESS USER_LABEL, USER_VALUE 
1c LONG 0 


SETA ifse0e1 


»PSECT 


0002C USER_LABEL: 
-BLKB 


«PSECT 


000C 000 eENTRY 
23 eat * te ng ae 
04 A2 B TSTW 
1€ 1 O19 BNEQ 
7E 7C 0001 CLRQ 
7E 04 00014 CLRL 
00000000' A F Bere PUSHAB 
Hii | Be 
000000006 09 07 FB 00 6 CALLS 
63 00000000° gf 7 00 MOV 
7? 11 000 f BRB 
oc 04 Ae 81 4 1$: CMPW 
18 18 000 BLEQU 
00000000* 8F pp 00 PUSHL 
a 
00000000* ar DD 00041 PUSHL 
mm ts A OBE, pie 
83 08 a3 d0 00058 MOVL 
aM RR oF 


Routine Size: 91 bytes, Routine Base: SCODE$ + O4DA 


1984 12:08:59 LeLiutussneSsetatt-036: 


SOWNS ,NOEXE ,2 


12 


SCODES ,NOWRT 2 
ty ACT, Save R2,R3 


Ber ousbLbck: R2 


PSYSSGETy PI 
it LABEL, YUSER.VALUE*4 


4tR2), #2 
#<<<SETS_FACILITY@16>+4584>+2> 
4(R2) 


#1 
ac<<st ts FACILITY@16>+4344>+2> 


i BUSeER -VALUE 
an 4 USER- VALUE +4 


SF} 


s 


6 
1B-Se0-1964 91:06:0)  yatctt BLisg=82,v4.0-742 


; 1060 1031 1 GLOBAL ROUTINE vprot_act (option_block, callback) = 

: 19¢3 1038 J i 

; 1068 1 1! This is the action routine for the PROTECTION qualifier of SET VOLUME. 
; 1088 : 5 : The protection is parsed and stored. 

en eee 

; 1068 1039 

3; 1069 a LOCAL 

; 1070 1041 status, ! Status return 

: 1078 Hk temp; ! Temporary place for FPROT_VALUE 

3 107 1oee MAP option_block : REF BBLOCK; ! Define CLI block 

3 1074 1045 

: 1075 rg ‘ 

; 1076 Wee Stuff the TPARSE block with the string 

: 1078 1049 tparse_block{tpa$t_stringent] = sont fon_biockhct /tv.edvet siz; 

: 44 1930 tparse_block(tpa$l_stringptr] = .option_blocklcli$a_qdvaladrJ; 

: 1081 105¢ temp = .fprot_value; ! Save contents of FPROT 

; 108 105 fprot_value = 0; ! Initialize file protection value 
3 108 1054 

> 1084 1055 : 

3; 1085 1936 ! Now to parse the protection given. When finished, FPROT_VALUE will 
; 1058 1320 : have the following values: 

; 1088 1059 2 | FPROT_VALUELLow word] = protection value 

3 1? 1960 + FPROT_VALUE high_word] = group mask i.e. SYSTEM, OWNER, GROUP, WORLD 
3 1091 106¢ iF NOT (status = LIBSTPARSE(tparse_block, 

3 1098 106 ro_state 

3; 109 1064 pro_keys) 

: a 1999 THEN SIGNAL_STOP(set$_facility*T6 + shr$_syntax + sts$k_error, 

: 1096 1067 option_block(cli$q_qdvaldesc), 

3 Ie : re »Status); 

3 1099 1070 2 vprot_value = .fprot_value; ' Store VPROT value 

: 1100 te fprot_value = .temp; ! Restore FPROT value 

; 1108 1073 RETURN true; 

3; 110 1074 END; 


003c 00 .ENTRY VPROT_ACT Saye RZ-R3.R4 RS 
5 00000000° EF 3 MOV TPARSE BLOCK+8, R 
4 000000006 60 MOVAB FPROT 9 . RS 
o A 1 MOVL OPT OR_BLOCK, R2 
6 ey 1 MOVZWL 4(R2), TPARSE_BLO +8 
06 =A 8 Ae Dd 18 MOVL  8(R2), TPARSE-BLOCK+12 
5 D 1 MOVL  FPROT. , TEM 
4 04 0002 CLRL —«- FPROT“VALU 


1$-se0-1964 91:06:09) yanctt Blisg=32_ 4.0274 Page 59 


| 
EF OF PUSHAB PRO_KEYS : 1062 
cee ed ee ee : 
000000006 00 9 FB f CALLS #3, LIBSTPARSE : 
14 E8 00038 BLBS STATUS, 1$ : 
50 DD 00 PUSHL STATUS + 1068 
04 A2 9F 00030 PUSHAB 4(R2) + 1067 
01 DD 9004 PUSHL #1 : 
00000000" 8F DD 0004 PUSHL &#<<<SET$_FACILITY@16>+4344>42> : 
000000006 00 04 FB 0004 CALLS #4, LIB$ ; 
000000006 00 64 DO OO04F 1S: MOVL Fehot “VALUE, VPROT_VALUE + 1070 
g 33 4 $038 MOVL H mall “FPROT VALUE : 1071 
0 1D MOVL t 1073 
04 0005¢ RET + 1074 


; Routine Size: 93 bytes, Routine Base: S$CODE$ + 0535 
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ieect9Ee 90:06:89 YMG, Shscde yt 2524 rane ff 
GLOBAL ROUTINE vrsn_act (option_block,callback) = 


i This is the action routine for the VERSION_LIMIT qualifier. The value of 
: the version Limit is collected. 


1 
1 | 
: | 
1 
1 | 
: | 
} 
BEGIN 
> 
| Nee : BBLOCKLdsc$c -s_bln]; 
MAP 
option_block : REF BBLOCK; ! Define the CLI options block 


vrsn_value = 32767; ! Preset to no Limit 


| 
See if a value was present. If yes, use it. Otherwise, use default 


iF .option block(cli$w advalsiz) EQ. 0 
THEN RETURN true; 


IF NOT (status = LIBSCVT_DTB(. apron plocktet {su. advalsizj, 
ion_block€cli$a_qdvaladrJ, 


te ty vatue)) 


SIGNAL_STOP(set$_facility*16 + shr$_syntax + sts$k_error, 


option_ plockEcl 1$q_ advaldesc], 
-Status); 


NOT (.vrsn_value GEQ 0 AND. 
THEN SIGNAL STOP (sets, facility* 
kCc 

ty* 


option_ bloc 
set$_facili 


lue LEQ 65535) 
r$_syntax + sts$k_error, 


| S. 


esc], 
$_valerr + stsS$k_error); 
END; 


RETURN true; 
END 


o0g¢ ENTRY VRSN_ACT, Save R2,R3 
3 000000006 $8 . ROVAR VRSN-VAL LOE? RS 
é 7FFF OBE 5 ROVIOL ¢ ¢7 7, VRSN VALUE 
AC D 1 NOV. OPTION “BLOCK 
4 oA i i (R2) 


Sete te Sete te Ge 
— 
a 


ls 


oo 
oo 


1 
1 
A 
z 
000000006 8? ; 
? 
50 1 

OOOOF FFF 8F 
seeaeas * 


00000000* 
000000006 98 
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FRM WOOWEOCOWNNIUW 
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3; Routine Size: 91 bytes, Routine Base: SCODE$S + 0592 
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1$: 


p-198 12:08:99 


AX=11 Bliss-32 V4.0-74 
CL TUTL SRE ISETACT B32; 


R3 

ATH 

sr », =(SP) 
k L{escyt_ore 

STATUS, 

TATUS 

RSN_VALUE, RO 

RO, #65535 
#<<<SETS_FACILITY@16>+4584>+2> 
sine? 
M<<<SET$_FACILITY816>+4344>+2> 


#4, LIBSSTOP 
#1, RO 


a4 
es 
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iecisers 1:86:85 YAIGUT S4eScBEadt 0b Pane 38 


GLOBAL ROUTINE window_act (option_block, callback) = 


~N 


i 
i This is the action routine for the /WINDOWS qualifier. It retrieves the 
value and performs bounds checking on it. 


1 
1 
1 
1 
1 
1 
} 
BEGIN 
status, ! Status return | 
desc : BBLOCKCdsc$c_s_bin}; ' General descriptor | 
MAP option_block : REF BBLOCK; ! Define the CLI block 
window _value = 7; ! Set up the default 
: | 
| 
& 
| 
| | 
| 


If a value was specified, use it; otherwise, use the default. 


if option block(cli$w_qdvalsiz) EQL 0 
ETURR true; 


THEN 
‘ 
: Convert the value 


ir NOT (status = LIBSCVT “eager 08m cblocktelisa- advalsiz), 
on. block(cli$a_qdvaladrJ, 


ot + he 
THEN SIGNAL_STOP(set$ _facility"16 : “yar ee + sts$k_error, ! Signal a syntax error 


option_ plocktcl 1$q_ advaldesc], 
-Status 


LSE 
BEGIN 
IF NOT (.window value GEQ 7 ! Check that value is in range 


window value LEQ 80) 
THEN SIGNAL _STOP(set$_facility*16 + shr$_syntax + sts$k_error, ! If not, exit with an error. 


option sbhogttst {8a- advaldesc], 


set$_fac +"shr$_ valerr + sts$k_error); 


SD Pd ad wt eh a at a Fd tt a ts 8 2 4 8 st a te tt tt i a tt 
ee et a td at a ad st 4 dd dD 2 2 8 a ss a 


WN SO ODNAVUES WO OONOUS WO 0O@ Meu DONO UE O 


009¢ ENTRY WINDOW ACT, oe SNS R2, R3 : 1120 
; 000000006 ROVAR WINDOW VALU ; 
C SUBL ag sP™ : 
D MOVL WINDOW VALU : 1135 
AC D MOVL eae BLOCK, : 114 
A 8 TSTW : 
4 BEQL 46 48 ; 


ier eh YANG HT Sb t0g252 40226 


5 SHL 
x st a oe 
000000006 a6 CALLS rt vee fescyr_ DTB 
BL STATUS 
ae TATUS 
39 MOVL WINDOW_VALUE, RO 
ree 
00000050 &F cnr ° - #80 
seats * 4 bF PUSHL PeeePE TS PACELITVO IED CA SOtDeg> 
A ae 4(R2) 


1 
00000000" 8F PUSHL eg Bt FACILITY@16>+4344>+2> 
F CALLS Lies BSSTOP 
MOVL #1. R 


000000006 98 - 


3; Routine Size: 92 bytes, Routine Base: S$CODES + OSED 


ee | 
Se Ge Ge Ge Ge Ge G4 Se Se Se ee 


ieSse9Hs 3:06:95 YAEGLL Obed: Sale 


1138 1186 0 ELUoon 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 

Name Bytes Attributes 
SOWNS 56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON WOR 1G -AL 1ENCG) 
-LIBSKEYOS a NOVEC,.NOWRT, RD, EXE, SHR. LCL, REL, CON, PIC,ALIGN(1) 
ov fessraics 642 NOVEC,.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
LIBSKEY1 He: NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
SCODES 1609 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
- ABS . 8 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
SPLITS 32 NOVEC ‘NOWRT, RD ;NOEXE ,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
Tee sae eee Sym mbo ls Sp we OS a Pages Processing 

File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 0 1000 0:01.8 
~Bo5Seouage: ESvstipacc imac. c2:1 14 8 9 09: 08-3 
$255$DUA28: CSYSLIBJTPAMAC.L32;1 42 2 6 14 0.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETACT/OBJ=OBJ$:SETACT MSRC$:SETACT/UPDATE=(ENHS: SETACT) 


Size: 1609 code + 874 data bytes 
ete yiati } z 

aps : : e 
Lines/CPU Min: 1049 


poets Be Min: 69494 
1,¥ Used: 274 pages 
Compilation Complete 
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